﻿Public Class Feuerkrafttabelle120
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Return 120
    End Function
End Class
Public Class FeuerkrafttabelleBoden120
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 100
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 100
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 120
            Case MovementSorts.Mech.ToString.ToUpper
                Return 120
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 120
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 120
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 120
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 120
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleBoden110
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 100
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 100
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 110
            Case MovementSorts.Mech.ToString.ToUpper
                Return 110
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 110
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 110
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 110
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 110
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleBoden105
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 100
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 100
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 105
            Case MovementSorts.Mech.ToString.ToUpper
                Return 105
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 105
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 105
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 105
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 105
            Case Else
                Return 100
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleBoden130
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 100
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 100
            Case MovementSorts.Transport.ToString.ToUpper
                Return 100
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 100
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 130
            Case MovementSorts.Mech.ToString.ToUpper
                Return 130
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 130
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 100
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 130
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 130
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 130
            Case Else
                Return 100
        End Select
    End Function
End Class